home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-02 / fgl110c.zip / 12-08.C < prev    next >
Text File  |  1992-01-31  |  627b  |  38 lines
  1. #include <fastgraf.h>
  2. #include <stdio.h>
  3. #include <stdlib.h>
  4.  
  5. void main(void);
  6.  
  7. void main()
  8. {
  9.    int old_mode;
  10.    int row;
  11.  
  12.    old_mode = fg_getmode();
  13.    fg_setmode(3);
  14.  
  15.    if (fg_mouseini() < 0) {
  16.       fg_setmode(old_mode);
  17.       fg_reset();
  18.       exit(1);
  19.       }
  20.  
  21.    fg_setattr(7,0,0);
  22.    fg_rect(0,fg_getmaxx(),0,fg_getmaxy());
  23.  
  24.    fg_setattr(12,7,0);
  25.    for (row = 0; row < 25; row++) {
  26.       fg_locate(row,34);
  27.       fg_text("example 12-8",12);
  28.       }
  29.  
  30.    fg_mousevis(1);
  31.    fg_waitkey();
  32.    fg_mousecur(0x7FFF,0x7F00);
  33.    fg_waitkey();
  34.  
  35.    fg_setmode(old_mode);
  36.    fg_reset();
  37. }
  38.